home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 351-375 / 354 / mxmlib / format.asm next >
Assembly Source File  |  1995-03-14  |  929b  |  43 lines
  1. * $Revision Header *** Header built automatically - do not edit! ***********
  2. *
  3. *    (C) Copyright 1990 by MXM
  4. *
  5. *    Name .....: Format.asm
  6. *    Created ..: Sunday 01-Apr-90 18:03
  7. *    Revision .: 0
  8. *
  9. *    Date            Author          Comment
  10. *    =========       ========        ====================
  11. *    01-Apr-90       Olsen           Created this file!
  12. *
  13. * $Revision Header *********************************************************
  14.  
  15.         SECTION    Format,CODE
  16.  
  17.         XDEF    _Format
  18.         XREF    _LVORawDoFmt
  19.  
  20. _Format:    MOVE.L     4(SP),D1        ; Buffer
  21.         MOVE.L     8(SP),D0        ; Argstring
  22.         LEA    12(SP),A1        ; Arguments
  23.  
  24.         MOVE.L    A2,-(SP)        ; Save registers
  25.         MOVE.L    A3,-(SP)
  26.  
  27.         MOVE.L    D1,A3            ; Swap registers
  28.         MOVE.L    D0,A0
  29.         LEA    Stuff(PC),A2        ; Get print subroutine
  30.  
  31.         MOVE.L    4,A6            ; Get SysBase
  32.         JSR    _LVORawDoFmt(A6)    ; Do the format
  33.  
  34.         MOVE.L    (SP)+,A3        ; Restore registers
  35.         MOVE.L    (SP)+,A2
  36.  
  37.         RTS                ; Get back...
  38.  
  39. Stuff:        MOVE.B    D0,(A3)+        ; Put the char
  40.         RTS
  41.  
  42.         END
  43.